#delimit;
clear all;
version 13.1;
pause on;
program drop _all;
capture log close;
set more off;

/*INSERT FOLDER PATH*/
cd /;



use rtrct_incidence.dta, clear;


label var nb_rtrct "Nb. of Retracted Artcls.";
label var prop_rtrct "Prop. of Retracted Artcls.";
twoway line nb_rtrct year, xtitle(" ") xlabel(1975(5)2010, labsize(small)) ylabel(0(25)200, format(%15.0f) angle(horizontal) labsize(small) axis(1)) ytitle("Frequency") ||
(line prop_rtrct year, sort yaxis(2) ylabel(0 "0/10,000" 0.0001 "1/10,000" 0.0002 "2/10,000" 0.0003 "3/10,000" 0.0004 "4/10,000", angle(horizontal) labsize(small) axis(2)) ytitle("Proportion", axis(2)) legend(position(11) ring(0) size(small) cols(1)) saving(graphs/rtrct_incidence.gph, replace));